﻿Public Class dsSanBong
    Dim ctx As New QLDBDataContext

    Public Function LayTenSanBong(ByVal ma As Integer) As String
        Dim query = (From p In ctx.CAULACBOs Join q In ctx.SANVDs On p.MaSan Equals q.MaSan
                    Where p.MaCLB = ma
                    Select q.TenSan).First()
        Return query

    End Function
End Class
